1 REM ********************************* 2 REM * * 3 REM * FLY HIGH * 4 REM * * 5 REM *(W)/(C) IN 1997 BY LAGUNE SOFT* 6 REM * * 7 REM *THE GRANDMASTER IS WATCHING YOU* 8 REM * * 9 REM ********************************* 10 POKE53280,12:POKE53281,11:A=50:B=A:F=A:L=A:N=A:W=0:T=8:AL=20:Y=1977:GE=25 12 GOSUB9998:PRINT"1 = [211]TART" 15 PRINT"2 = [197]INSTELLUNGEN" 16 GOSUB9996 17 IFA$="1"THEN100 20 IFA$="2"THEN50 21 GOTO16 50 REM EINSTELLUNGEN 51 GOSUB9998:GOSUB9800:GOSUB20000 52 PRINT"[197]INSTELLUNGEN: ([205]ENU = 1) [183][183][183][183][183][183][183][183][183][183][183][183][183]" 53 PRINT"[211]TAERKEN DER [211]PRINGER ZU [194]EGINN:" 54 PRINT"([193])NFAHR(T) : "A"%" 55 PRINT"[193](B)SPRUN(G) : "B"%" 56 PRINT"([198])LUGPHAS(E) : "F"%" 57 PRINT"([204])AND(U)NG : "L"%" 58 PRINT"([206])ERVENSTAER(K)E: "N"% ([202])A(H)R : "Y+AL 59 PRINT"[212]ASTE = +/-" 60 PRINT"[212]ASTE & [211]HIFT = +5/-5 (AUSSER [202]AHR)" 61 PRINT"[212]ASTE & [195]= = +10/-10 (AUSSER [202]AHR)" 62 GOSUB9996 63 IFA$="A"THENA=A+1 64 IFA$="T"THENA=A-1 65 IFA$="[193]"THENA=A+5 66 IFA$="[212]"THENA=A-5 67 IFA$="[176]"THENA=A+10 68 IFA$="[163]"THENA=A-10 69 IFA$="B"THENB=B+1 70 IFA$="G"THENB=B-1 71 IFA$="[194]"THENB=B+5 72 IFA$="[199]"THENB=B-5 73 IFA$="[191]"THENB=B+10 74 IFA$="[165]"THENB=B-10 75 IFA$="F"THENF=F+1 76 IFA$="E"THENF=F-1 77 IFA$="[198]"THENF=F+5 78 IFA$="[197]"THENF=F-5 79 IFA$="[187]"THENF=F+10 80 IFA$="[177]"THENF=F-10 81 IFA$="L"THENL=L+1 82 IFA$="U"THENL=L-1 83 IFA$="[204]"THENL=L+5 84 IFA$="[213]"THENL=L-5 85 IFA$="[182]"THENL=L+10 86 IFA$="[184]"THENL=L-10 87 IFA$="N"THENN=N+1 88 IFA$="K"THENN=N-1 89 IFA$="[206]"THENN=N+5 90 IFA$="[203]"THENN=N-5 91 IFA$="[170]"THENN=N+10 92 IFA$="[161]"THENN=N-10 93 IFA$="1"THEN12 94 IFA$="J"THENY=Y+1 95 IFA$="H"THENY=Y-1 99 GOTO50 100 REM ONE-PLAYER-MODE 101 GOSUB9800:GOSUB10000:GOSUB11000 102 Z=0:GOSUB9998:PRINT"[206]ATIONENWAHL: [183][183][183][183][183][183][183][183][183][183][183][183]" 103 PRINT"[193] = [196]EUTSCHLAND [194] = [198]INNLAND" 104 PRINT"[195] = [206]ORWEGEN [196] = [207]ESTERREICH" 105 PRINT"[197] = [202]APAN [198] = [211]LOWENIEN" 106 PRINT"[199] = [211]CHWEIZ [200] = [212]SCHECHEI" 107 PRINT"[201] = [208]OLEN" 108 PRINT"[202] = [210]USSLAND [203] = [198]RANKREICH" 109 PRINT"[204] = [211]CHWEDEN [205] = [201]TALIEN" 110 PRINT"[206] = [213].[211].[193]." 111 GOSUB9996 112 IFA$="A"THENN$="[199]ERMANY" 113 IFA$="B"THENN$="[198]INLAND" 114 IFA$="C"THENN$="[206]ORWAY"ANDN3$="[204]AGUNE" 115 IFA$="D"THENN$="[193]USTRIA" 116 IFA$="E"THENN$="[202]APAN" 117 IFA$="F"THENN$="[211]LOWENIA"ANDN3$="[204]AGUNE" 118 IFA$="G"THENN$="[211]UISSE"ANDN3$="[204]AGUNE" 119 IFA$="H"THENN$="[212]SCHECHY"ANDN3$="[204]AGUNE" 121 IFA$="I"THENN$="[208]OLAND"ANDN3$="[204]AGUNE" 122 IFA$="J"THENN$="[210]USSIA"ANDN3$="[204]AGUNE" 123 IFA$="K"THENN$="[198]RANCE"ANDN3$="[204]AGUNE" 124 IFA$="L"THENN$="[211]WEDEN"ANDN3$="[204]AGUNE" 125 IFA$="M"THENN$="[201]TALY"ANDN3$="[204]AGUNE" 126 IFA$="N"THENN$="[213][211][193]"ANDN3$="[204]AGUNE" 128 PRINT"[199]EWAEHLTE [206]ATION: "N$ 129 PRINT"[203]ORREKT ([202]/[206]) ?" 130 GOSUB9996 131 IFA$="J"THEN140 132 IFA$="N"THEN102 133 GOTO130 140 GOSUB9998 141 INPUT"[214]ORNAME ";VN$ 142 INPUT"[206]ACHNAME ";NN$ 143 PRINT"[194]EGINN DER ERSTEN [211]AISON ..." 144 GOSUB9996 150 IFT=8THENGOSUB20000 151 IFT=8THENW=W+1:IFT=8THENUI=0:IFT=8THENT=1:REM HAUPTMENU 152 IFW=17THENGOSUB12000 153 IFT=6THEN1000 154 GOSUB9998:TA=0:TB=0:PRINT"[200]AUPTMENU: [183][183][183][183][183][183][183][183][183]" 155 PRINTVN$" "NN$:PRINT"[206]ATION: "N$:PRINT"[215]OCHE :"W:PRINT"[212]AG :"T:PRINT"[193]LTER :"AL:PRINT"[202]AHR :"Y+AL 156 PRINT"1 = [212]RAINING 2 = [197]REIGNISSE":IFT=7THEN7005 157 PRINT"3 = [213]EBERBLICK":IFXA=2ANDT=7THEN1070 158 PRINT"4 = [206]AECHSTE [215]OCHE 5 = [197][206][196][197]":RC$="":XA=0:RF$="":RE$="" 159 INPUT"[215]AS NUN ";X 160 IFX<1ORX>5THEN154 161 IFX=1THEN300 162 IFX=2THEN700 163 IFX=3THEN200 165 IFX=4THEN600 166 IFX=5THEN650 200 REM UEBERBLICK 201 GOSUB9998 202 PRINT"[213]EBERBLICK: [183][183][183][183][183][183][183][183][183][183]" 203 PRINT"1 = [210]ANGLISTE 2 = [215]ETTKAEMPFE" 204 PRINT"3 = [215]OCHENPLANUNG 4 = [211]TATISTIK" 205 PRINT"5 = [200]AUPTMENU" 206 INPUT"[215]AS NUN";X 207 IFX<1ORX>5THEN200 208 IFX=1THEN2000 209 IFX=2THEN220 210 IFX=3THEN500 211 IFX=4THEN900 212 IFX=5THEN154 220 REM WETTKAEMPFE 221 GOSUB9998 222 PRINT"[215]OCHE [215]ETTKAMPF " 223 GOSUB9920 224 PRINT" 1 2 NORMALE [211]PRINGEN" 225 PRINT" 2 2 NORMALE [211]PRINGEN" 226 PRINT" 3 2 NORMALE [211]PRINGEN" 227 PRINT" 4 2 [212]OURNEE-[211]PRINGEN" 228 PRINT" 5 2 [212]OURNEE-[211]PRINGEN" 229 PRINT" 6 2 NORMALE [211]PRINGEN" 230 PRINT" 7 2 NORMALE [211]PRINGEN" 231 PRINT" 8 2 NORMALE [211]PRINGEN" 232 PRINT" 9 2 [211]KI-[198]LIEGEN" 233 PRINT" 10 2 NORMALE [211]PRINGEN" 234 PRINT" 11 FREI" 235 PRINT" 12 [215][205]-[203]LEINSCHANZE" 236 PRINT" 13 [215][205]-[199]ROSSSCHANZE" 238 PRINT" 14 2 NORMALE [211]PRINGEN" 239 PRINT" 15 2 NORMALE [211]PRINGEN" 240 PRINT" 16 2 [211]KI-[198]LIEGEN" 248 GOSUB9996 249 GOTO200 300 REM TRAINING 301 GOSUB9998 302 PRINT"[212]RAINING: [183][183][183][183][183][183][183][183]" 303 PRINT"1 = [193]NFAHRT 2 = [193]BSPRUNG" 304 PRINT"3 = [198]LUGPHASE 4 = [204]ANDUNG" 305 PRINT"5 = [200]AUPTMENU" 306 INPUT"[215]AS NUN";X 307 IFX<1ORX>5THEN300 308 IFX=1THEN320 309 IFX=2THEN360 310 IFX=3THEN400 311 IFX=4THEN440 312 IFX=5THEN154 320 GOSUB9998 321 PRINT"[193]NFAHRT: [183][183][183][183][183][183][183]" 322 PRINT"[204]EISTUNG:"A"% 323 [153]"(null)RAINIEREN (MID$/(null)) ?" 324 [141]9996 325 [139]A$[178]"J"[167]330 326 [139]A$[178]"N"[167]300 327 [137]324 330 UG[178]1:OG[178]5:[141]9990 331 A1[178]Z2 332 UG[178]1:OG[178]7:[141]9990 333 [139]Z2[178]1[167]350 334 [139]Z2[178]2[167]350 335 [139]Z2[178]3[167]340 336 [139]Z2[178]4[167]340 337 [139]Z2[178]5[167]340 338 [139]Z2[178]6[167]340 339 [139]Z2[178]7[167]350 340 A[178]A[170]A1:[139]A[177]100[167]A[178]100 341 [153]"STR$AS (null)RAINING LIEF GUT." 342 [153]"(null)EUE (null)EISTUNG:"A"% 343 T=T+1 344 GOSUB9996 345 GOTO150 350 A=A-A1:IFA<0THENA=0 351 PRINT"[196]AS [212]RAINING LIEF MIES." 352 PRINT"[206]EUE [204]EISTUNG:"A"% 353 T[178]T[170]1 354 [141]9996 355 [137]150 360 [141]9998 361 [153]"ATNBSPRUNG: USRUSRUSRUSRUSRUSRUSRUSR" 362 [153]"(null)EISTUNG:"B"% 363 PRINT"[212]RAINIEREN ([202]/[206]) ?" 364 GOSUB9996 365 IFA$="J"THEN370 366 IFA$="N"THEN300 367 GOTO364 370 UG=1:OG=5:GOSUB9990 371 B1=Z2 372 UG=1:OG=7:GOSUB9990 373 IFZ2=1THEN390 374 IFZ2=2THEN390 375 IFZ2=3THEN380 376 IFZ2=4THEN380 377 IFZ2=5THEN380 378 IFZ2=6THEN380 379 IFZ2=7THEN390 380 B=B+B1:IFB>100THENB=100 381 PRINT"[196]AS [212]RAINING LIEF GUT." 382 PRINT"[206]EUE [204]EISTUNG:"B"% 383 T[178]T[170]1 384 [141]9996 385 [137]150 390 B[178]B[171]B1:[139]B[179]0[167]B[178]0 391 [153]"STR$AS (null)RAINING LIEF MIES." 392 [153]"(null)EUE (null)EISTUNG:"B"% 393 T=T+1 394 GOSUB9996 395 GOTO150 400 GOSUB9998 401 PRINT"[198]LUGPHASE: [183][183][183][183][183][183][183][183][183]" 402 PRINT"[204]EISTUNG:"F"% 403 [153]"(null)RAINIEREN (MID$/(null)) ?" 404 [141]9996 405 [139]A$[178]"J"[167]410 406 [139]A$[178]"N"[167]300 407 [137]404 410 UG[178]1:OG[178]5:[141]9990 411 F1[178]Z2 412 UG[178]1:OG[178]7:[141]9990 413 [139]Z2[178]1[167]430 414 [139]Z2[178]2[167]430 415 [139]Z2[178]3[167]420 416 [139]Z2[178]4[167]420 417 [139]Z2[178]5[167]420 418 [139]Z2[178]6[167]420 419 [139]Z2[178]7[167]430 420 F[178]F[170]F1:[139]F[177]100[167]F[178]100 421 [153]"STR$AS (null)RAINING LIEF GUT." 422 [153]"(null)EUE (null)EISTUNG:"F"% 423 T=T+1 424 GOSUB9996 425 GOTO150 430 F=F-F1:IFF<0THENF=0 431 PRINT"[196]AS [212]RAINING LIEF MIES." 432 PRINT"[206]EUE [204]EISTUNG:"F"% 433 T[178]T[170]1 434 [141]9996 435 [137]150 440 [141]9998 441 [153]"(null)ANDUNG: USRUSRUSRUSRUSRUSRUSR" 442 [153]"(null)EISTUNG:"L"% 443 PRINT"[212]RAINIEREN ([202]/[206]) ?" 444 GOSUB9996 445 IFA$="J"THEN450 446 IFA$="N"THEN300 447 GOTO444 450 UG=1:OG=5:GOSUB9990 451 L1=Z2 452 UG=1:OG=7:GOSUB9990 453 IFZ2=1THEN470 454 IFZ2=2THEN470 455 IFZ2=3THEN460 456 IFZ2=4THEN460 457 IFZ2=5THEN460 458 IFZ2=6THEN460 459 IFZ2=7THEN470 460 L=L+L1:IFL>100THENL=100 461 PRINT"[196]AS [212]RAINING LIEF GUT." 462 PRINT"[206]EUE [204]EISTUNG:"L"% 463 T[178]T[170]1 464 [141]9996 465 [137]150 470 L[178]L[171]L1:[139]L[179]0[167]L[178]0 471 [153]"STR$AS (null)RAINING LIEF MIES." 472 [153]"(null)EUE (null)EISTUNG:"L"% 473 T=T+1 474 GOSUB9996 475 GOTO150 500 REM WOCHENPLANUNG 501 GOSUB9998 502 PRINT"[215]OCHENPLANUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183]" 503 PRINT"1 = [193]KTUELLE [208]LANUNG 2 = [206]EUE [208]LANUNG" 504 PRINT"3 = [200]AUPTMENU" 505 INPUT"[215]AS NUN ";X 506 IFX<1ORX>3THEN500 507 IFX=1THEN540 508 IFX=2THEN520 509 IFX=3THEN154 515 PRINT"[196]IES [215]OCHE IST NICHT VERPLANUNGS- MOEGLICH !" 516 GOSUB9996 517 GOTO520 520 GOSUB9998 521 PRINT"[206]EUE [208]LANUNG: [183][183][183][183][183][183][183][183][183][183][183][183]" 522 INPUT"[215]ELCHE [215]OCHE NEU PLANEN";X 523 IFX<1ORX>16THEN520 524 IFX>10ANDX<14THEN515 525 PRINT"[212]RAINING ODER [215]ETTKAMPF ([212]/[215]) ?" 526 GOSUB9996 527 IFA$="T"THEN530 528 IFA$="W"THEN535 529 GOTO526 530 IFX>10THEN533 531 V=X:E$(V)="[212]RAINING" 532 GOTO500 533 V=X-10:F$(V)="[212]RAINING" 534 GOTO500 535 IFX>10THEN538 536 V=X:E$(V)="[215]ETTKAMPF" 537 GOTO500 538 V=X-10:F$(V)="[215]ETTKAMPF" 539 GOTO500 540 GOSUB9998 541 PRINT"[193]KTUELLE [208]LANUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 542 PRINT"[215]OCHE [208]LANUNG " 543 GOSUB9920 544 PRINT"1 "E$(1) 545 PRINT"2 "E$(2) 546 PRINT"3 "E$(3) 547 PRINT"4 "E$(4) 548 PRINT"5 "E$(5) 549 PRINT"6 "E$(6) 550 PRINT"7 "E$(7) 551 PRINT"8 "E$(8) 552 PRINT"9 "E$(9) 553 PRINT"10 "E$(10) 554 PRINT"11 FREI" 555 PRINT"12 [215][205]-[203]LEINSCHANZE" 556 PRINT"13 [215][205]-[199]ROSSSCHANZE" 557 PRINT"14 "F$(4) 558 PRINT"15 "F$(5) 559 PRINT"16 "F$(6) 560 GOSUB9996 561 GOTO500 600 REM NAECHSTE WOCHE 601 T=6:XA=2:GOTO1070 650 REM ENDE 651 GOSUB9998 652 PRINT"[197]CHT ([202]/[206]) ?????????" 653 GOSUB9996 654 IFA$="N"THEN152 655 SYS64738 700 REM EREIGNISSE 701 UG=1:OG=7:GOSUB9990 702 IFZ2=1THEN710 703 IFZ2=2THEN720 704 IFZ2=3THEN730 705 IFZ2=4THEN740 706 IFZ2=5THEN750 707 IFZ2=6OR7THEN761 710 GOSUB9998:PRINT"[193]NFAHRT-[212]RAINING: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 711 UG=1:OG=3:GOSUB9990 712 IFZ2=1THEN717 713 PRINT"[196]EIN [212]RAINER MEINT,DU SOLLTEST OEFTER IM[211]TEHEN SCHEISSEN.[214]IELLEICHT WUERDE" 714 PRINT"SICH DANN ENDLICH MAL DEINE [193]NFAHRT VER-BESSERN ! ([193]NFAHRT = -5 %)" 715 A=A-5:T=T+1:IFA<0THENA=0 716 GOSUB9996:GOTO150 717 PRINT"[212]OP-ELEGANT GLEITEST DU DEN [193]BLAUF HINUNTER ! [196]EIN [212]RAINER FREUT SICH" 718 PRINT"UEBER 5 % [214]ERBESSERUNG !":A=A+5:IFA>100THENA=100 719 T=T+1:GOSUB9996:GOTO150 720 GOSUB9998:PRINT"[193]BSPRUNG-[212]RAINING: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 721 UG=1:OG=3:GOSUB9990:IFZ2=1THEN726 722 PRINT"[203]OPFSCHUETTELND MEINT DEIN [212]RAINER,DASS DU EINFACH NICHT AUS DEM [193]RSCH" 723 PRINT"KOMMST.[196]EIN [193]BSPRUNG VERSCHLECHTERT SICHUM HORRENDE 5 % !" 724 B=B-5:IFB<0THENB=0 725 T=T+1:GOSUB9996:GOTO150 726 PRINT"[215]IE EIN [198]ROSCH HEBST DU VOM [211]CHANZEN- TISCH AB ! [196]U SIEHST DIE 5%IGE" 727 PRINT"[214]ERBESSERUNG GENAU SO GERNE,WIE DEIN [212]RAINER !":B=B+5:T=T+1 728 IFB>100THENB=100 729 GOSUB9996:GOTO150 730 GOSUB9998:PRINT"[198]LUGPHASEN-[212]RAINING: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 731 UG=1:OG=3:GOSUB9990 732 IFZ2=1THEN737 733 PRINT"[197]IN [211]TEIN FAELLT VOM [194]ODEN ... ([198]LUG- PHASE = -5 %)" 735 F=F-5:IFF<0THENF=0 736 T=T+1:GOSUB9996:GOTO150 737 PRINT"[196]ORT AM [200]IMMEL - EIN [213][198][207] ? [197]IN [211]UPERMAN?[206]EIN,ES IST "VN$" "NN$" !" 738 PRINT"([198]LUGPHASE = +5 %)":F=F+5:T=T+1:IFF>100THENF=100 739 GOSUB9996:GOTO150 740 GOSUB9998:PRINT"[204]ANDUNGS-[212]RAINING: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 741 UG=1:OG=3:GOSUB9990 742 IFZ2=1THEN746 743 PRINT"[211]PLATSCH !!! ([204]ANDUNG = -5 %)" 744 L=L-5:IFL<0THENL=0 745 T=T+1:GOSUB9996:GOTO150 746 PRINT"[199]RAZIOES WIE EIN [215]EISSFLOG,[198]INNE,[202]APANERODER WAS ES SONST NOCH GIBT - DEIN" 747 PRINT"[212]RAINER IST STARK BEGEISTERT ! ([204]ANDUNG = +5 %)":L=L+5:T=T+1 748 IFL>100THENL=100 749 GOSUB9996:GOTO150 750 GOSUB9998:PRINT"([206]ERVENDE) [197]RFAHRUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 751 UG=1:OG=3:GOSUB9990:IFZ2=1THEN756 752 PRINT"[193]LS DU HEUTE BEIM [212]RAINING GANZ OBEN STANDEST,BEKAMST DU PLOETZLICH" 753 PRINT"EINEN [193]NFALL PANISCHER [200]OEHENANGST.[196]EIN [212]RAINER SIEHT DIES FUER DEINE [211]KI-" 754 PRINT"[211]PRUNG-[203]ARRIERE NICHT GERADE POSITIV.":N=N-5:IFN<0THENN=0 755 T=T+1:GOSUB9996:GOTO150 756 PRINT"[215]IE DU BEIM HEUTIGEN [212]RAINING VON EINER [215]INDBOEE ERFASST WURDEST UND FAST" 757 PRINT"GANZ,GANZ SCHLIMM GESTUERZT WAERST,HAST DU BLITZSCHNELL REAGIERT UND DEN" 758 PRINT"[211]TURZ WUNDERBAR ABGEFANGEN.[196]EIN [212]RAINER MEINT,DIES ZEIGTE DEINE [203]LASSE !" 759 N=N+5:T=T+1:IFN>100THENN=100 760 GOSUB9996:GOTO150 761 GOSUB9998:PRINT"[197]INSCHNITT DER [203]ARRIERE: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 762 UG=1:OG=3:GOSUB9990:IFZ2=1THEN766 763 PRINT"[196]ER HEUTIGE SCHWERE [211]TURZ BEENDETE DEINE[211]AISON VORZEITIG.[196]IE SCHWERE [214]ER-" 764 PRINT"LETZUNG DUERFTE AUCH DEIN [203]ARRIEREENDE NAEHER GEBRACHT HABEN !" 765 GOTO800 766 PRINT"[198]RISCH WIE NIE FUEHLST DU DICH DERZEIT. [196]EIN [203]ARRIEREENDE SOLL NOCH EIN" 767 PRINT"BISSCHEN LAENGER ALS GEPLANT WARTEN !":GE=GE+1:IFGE>30THENGE=30 768 T=T+1:GOSUB9996:GOTO150 800 T=8:W=16:GE=GE-1 801 UG=1:OG=10:GOSUB9990:IFWM$(AL-19)<>""THEN803 802 WM$(AL-19)=V1$(Z2):W8$(AL-19)=N1$(Z2):W9$(AL-19)=M1$(Z2) 820 UG=1:OG=10:GOSUB9990:IFMW$(AL-19)<>""THEN822 821 MW$(AL-19)=V2$(Z2):M8$(AL-19)=N2$(Z2):M9$(AL-19)=M2$(Z2) 822 UG=1:OG=9:GOSUB9990:IFOT$(AL-19)<>""THEN824 823 OT$(AL-19)=VN$(Z2):T8$(AL-19)=NN$(Z2):T9$(AL-19)=MM$(Z2) 824 UG=1:OG=9:GOSUB9990:IFFW$(AL-19)<>""THEN826 825 FW$(AL-19)=VN$(Z2):F8$(AL-19)=NN$(Z2):F9$(AL-19)=MM$(Z2) 826 RE$="[202]":GOSUB1370:GOSUB9996:GOTO150 900 AB=-4:REM STATISTIK 901 AB=AB+5:GOSUB9998:GOSUB9910 902 PRINT"[212]OURNEE-[211]IEGER: [183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 903 FORZ=ABTOAL-19 904 PRINTY+Z+19" : "OT$(Z)" "T8$(Z) 905 PRINT"[206]ATION : "T9$(Z)" 906 [139]Z[178]AB[170]4[167]909 907 [130]Z 908 [141]9996:[137]910 909 [141]9996:[137]901 910 AB[178][171]4 911 AB[178]AB[170]5:[141]9998:[141]9910 912 [153]"ASCLUG-(null)IEGER: USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 913 [129]Z[178]AB[164]AL[171]19 914 [153]Y[170]Z[170]19" : "FW$(Z)" "F8$(Z) 915 [153]"(null)ATION : "F9$(Z)" 916 IFZ=AB+4THEN919 917 NEXTZ 918 GOSUB9996:GOTO920 919 GOSUB9996:GOTO911 920 AB=-4 921 AB=AB+5:GOSUB9998:GOSUB9910 922 PRINT"[215]ELTMEISTER-[203]LEINSCHANZE: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 923 FORZ=ABTOAL-19 924 PRINTY+Z+19" : "WM$(Z)" "W8$(Z) 925 PRINT"[206]ATION : "W9$(Z)" 926 [139]Z[178]AB[170]4[167]929 927 [130]Z 928 [141]9996:[137]940 929 [141]9996:[137]921 940 AB[178][171]4 941 AB[178]AB[170]5:[141]9998:[141]9910 942 [153]"(null)ELTMEISTER-CHR$ROSSSCHANZE: USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 943 [129]Z[178]AB[164]AL[171]19 944 [153]Y[170]Z[170]19" : "MW$(Z)" "M8$(Z) 945 [153]"(null)ATION : "M9$(Z)" 946 IFZ=AB+4THEN949 947 NEXTZ 948 GOSUB9996:GOTO950 949 GOSUB9996:GOTO941 950 GOTO200 1000 REM TAG 6 1001 IFW>10THEN1010 1002 IFE$(W)="[212]RAINING"THEN1070 1003 IFE$(W)="[215]ETTKAMPF"THEN1050 1010 X=W-10 1011 IFF$(X)="[212]RAINING"THEN1070 1012 IFF$(X)="[215]ETTKAMPF"THEN1050 1013 IFF$(X)="[215][205]"THEN3000 1050 V$="":REM DIFFERENZIERUNG 1053 IFW=9THEN1080 1054 IFW=16THEN1080 1055 GOTO1100 1070 IFW=11THEN1072 1071 RC$="C":RF$="[202]":GOSUB9800:GOTO1050 1072 UI=2:GOTO154 1080 REM FLIEGEN 1081 V$="[202]" 1082 GOTO1100 1100 REM WETTKAMPF 1101 X1=0:X2=0:X3=0:S1=9999:S2=9999:S3=9999:RA$="":RD$="":IFRC$="C"THEN1103 1102 GOSUB9998:PRINT"[209]UALIFIKATION 1.[212]AG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 1103 FORZ=1TO29:IFZ>10THEN1123 1104 UG=1:OG=2:GOSUB9990 1105 WE(Z)=A(Z)+2*B(Z)+2*F(Z)+L(Z)+N(Z) 1106 WE(Z)=WE(Z)/7 1107 WE(Z)=WE(Z)*Z1:IFV$="[202]"THENWE(Z)=WE(Z)+50:IFRA$="WM"THENWE(Z)=WE(Z)-20 1108 IFRA$="W[205]"THENWE(Z)=WE(Z)+20:UG=0.1:OG=1:GOSUB9990 1109 H(Z)=2*F(Z)+L(Z) 1110 H(Z)=H(Z)/15 1111 H(Z)=H(Z)*Z1 1112 P1=WE(Z)+H(Z) 1113 P(Z)=INT(P1):IFDN$(Z)="OK"THENRETURN 1114 NEXTZ 1123 V=Z-10:IFZ>20THEN1143 1124 UG=1:OG=2:GOSUB9990 1125 W2(V)=A2(V)+2*B2(V)+2*F2(V)+L2(V)+N2(V) 1126 W2(V)=W2(V)/7 1127 W2(V)=W2(V)*Z1:IFV$="[202]"THENW2(V)=W2(V)+50:IFRA$="WM"THENW2(V)=W2(V)-20 1128 IFRA$="W[205]"THENW2(V)=W2(V)+20:UG=0.1:OG=1:GOSUB9990 1129 H2(V)=2*F2(V)+L2(V) 1130 H2(V)=H2(V)/15 1131 H2(V)=H2(V)*Z1 1132 P1=W2(V)+H2(V) 1133 P2(V)=INT(P1):IFD2$(V)="OK"THENRETURN 1134 NEXTZ 1143 X=Z-20 1144 UG=1:OG=2:GOSUB9990 1145 W3(X)=A3(X)+2*B3(X)+2*F3(X)+L3(X)+N3(X) 1146 W3(X)=W3(X)/7 1147 W3(X)=W3(X)*Z1:IFV$="[202]"THENW3(X)=W3(X)+50:IFRA$="WM"THENW3(X)=W3(X)-20 1148 IFRA$="W[205]"THENW3(X)=W3(X)+20:UG=0.1:OG=1:GOSUB9990 1149 H3(X)=2*F3(X)+L3(X) 1150 H3(X)=H3(X)/15 1151 H3(X)=H3(X)*Z1 1152 P1=W3(X)+H3(X) 1153 P3(X)=INT(P1):IFD3$(X)="OK"THENRETURN 1154 NEXTZ 1163 IFRC$="C"THEN7000 1164 UG=1:OG=2:GOSUB9990 1165 W4=A+2*B+2*F+L+N 1166 W4=W4/7 1167 W4=W4*Z1:IFV$="[202]"THENW4=W4+50:IFRA$="WM"THENW4=W4-20 1168 IFRA$="W[205]"THENW4=W4+20:UG=0.1:OG=1:GOSUB9990 1169 H4=2*F+L 1170 H4=H4/15 1171 H4=H4*Z1 1172 P1=W4+H4 1173 P4=INT(P1):IFDN$="OK"THENRETURN 1180 IFX1=1THEN1190:REM SORTIERUNG 1181 Z=0 1182 Z=Z+1 1183 FORS=Z+1TO10 1184 IFP(Z)9THEN1182 1188 S1$=V1$(10):L1$=N1$(10):S1=P(10):W1=WE(10):MA$=M1$(10):Z=10 1190 IFX2=1THEN1200 1191 R=0 1192 R=R+1 1193 FORS=R+1TO10 1194 IFP2(R)9THEN1192 1198 S2$=V2$(10):L2$=N2$(10):S2=P2(10):W2=W2(10):MB$=M2$(10):R=10 1200 IFX3=1THEN1209 1201 K=0 1202 K=K+1 1203 FORS=K+1TO9 1204 IFP3(K)8THEN1202 1208 S3$=VN$(9):L3$=NN$(9):S3=P3(9):W3=W3(9):MC$=MM$(9):K=9 1209 X1=1:X2=1:X3=1 1210 IFS1>S2THEN1212 1211 IFS2>S3THEN1214 1212 IFS1>S3THEN1215 1213 IFS3>P4THEN1230 1214 IFS2>P4THEN1225 1215 IFS1>P4THEN1220 1216 IFWE$="OK"THEN1300 1217 C=C+1:S(C)=P4:S$(C)=VN$:L$(C)=NN$:W1(C)=W4:IFRB$="[202]"THENAP=AP+(11-C) 1218 P4=-C:DN$="OK":M$(C)=N$:IFC=10THEN1249 1219 GOTO1210 1220 IFWE$="OK"THEN1305 1221 C=C+1:S(C)=S1:S$(C)=S1$:L$(C)=L1$:W1(C)=W1:M$(C)=MA$ 1222 DN$(Z)="OK":P(Z)=-C:IFRB$="[202]"THENA4(Z)=A4(Z)+(11-C) 1223 IFC=10THEN1249 1224 X1=0:GOTO1180 1225 IFWE$="OK"THEN1310 1226 C=C+1:S(C)=S2:S$(C)=S2$:L$(C)=L2$:W1(C)=W2:M$(C)=MB$ 1227 D2$(R)="OK":P2(R)=-C:IFRB$="[202]"THENA5(Z)=A5(Z)+(11-C) 1228 IFC=10THEN1249 1229 X2=0:GOTO1180 1230 IFWE$="OK"THEN1315 1231 C=C+1:S(C)=S3:S$(C)=S3$:L$(C)=L3$:W1(C)=W3:M$(C)=MC$ 1232 D3$(K)="OK":P3(K)=-C:IFRB$="[202]"THENA6(Z)=A6(Z)+(11-C) 1233 IFC=10THEN1249 1234 X3=0:GOTO1180 1249 IFRC$="C"THEN5000 1250 IFRA$="[202]"THEN2070:REM ERGEBNISSE 1251 PRINT"[211]PRINGER/[206]ATION [215]EITE/[208]UNKTE":WE$="OK":C=0 1252 GOSUB9920:WS=WS+1 1253 FORZ=1TO10 1254 PRINTZ:PRINT"[145]."LEFT$(S$(Z),1)"."L$(Z)" ("LEFT$(M$(Z),3)") 1255 [153]"ON"[181](W1(Z)) 1256 [153]"ONM /"S(Z) 1257 [130]Z 1258 [141]9996 1259 [141]9700 1260 X1[178]0:X2[178]0:X3[178]0:[139]DN$[178]"OK"[167]N[178]N[170]2:[143] DURCHGAENGE 1261 [129]Z[178]1[164]10 1262 [139]DN$(Z)[178]"OK"[167][141]1104 1263 [139]WS[178]2[167]P(Z)[178]P(Z)[170]P4(Z) 1264 [130]Z 1271 [129]V[178]1[164]10 1272 [139]D2$(V)[178]"OK"[167][141]1124 1273 [139]WS[178]2[167]P2(V)[178]P2(V)[170]P6(V) 1274 [130]V 1281 [129]X[178]1[164]9 1282 [139]D3$(X)[178]"OK"[167][141]1144 1283 [139]WS[178]2[167]P3(X)[178]P3(X)[170]P7(X) 1284 [130]X 1285 [139]DN$[178]"OK"[167][141]1164 1286 [139]WS[178]2[167]P4[178]P4[170]P8 1287 [139]DN$[179][177]"OK"[175]RF$[179][177]"MID$"[167]N[178]N[171]2 1288 [139]N[177]100[167]N[178]100 1289 [139]N[179]0[167]N[178]0 1290 [137]1180 1300 C[178]C[170]1:[139]W[178]4[176]W[178]5[167]TP[178]TP[170]P4:[143] WERTUNGSGAENGE 1301 [139]WS[178]2[167]N[178]N[170](6[171]C):[139]V$[178]"MID$"[167]FP[178]FP[170](11[171]C) 1302 S(C)[178]P4:S$(C)[178]VN$:L$(C)[178]NN$:W1(C)[178]W4:P8[178]P4:P4[178]0:[139]WS[178]2[167]AP[178]AP[170](11[171]C) 1303 M$(C)[178]N$:[139]C[178]10[167]1350 1304 [137]1210 1305 C[178]C[170]1:S(C)[178]S1:S$(C)[178]S1$:L$(C)[178]L1$:W1(C)[178]W1:P4(Z)[178]S1:P(Z)[178]0:M$(C)[178]MA$ 1306 [139]W[178]4[176]W[178]5[167]T1(Z)[178]T1(Z)[170]S1:[139]V$[178]"MID$"[167]F4(Z)[178]F4(Z)[170](11[171]C) 1307 [139]WS[178]2[167]A4(Z)[178]A4(Z)[170](11[171]C) 1308 [139]C[178]10[167]1350 1309 X1[178]0:[137]1180 1310 C[178]C[170]1:S(C)[178]S2:S$(C)[178]S2$:L$(C)[178]L2$:W1(C)[178]W2:P6(R)[178]S2:P2(R)[178]0:M$(C)[178]MB$ 1311 [139]W[178]4[176]W[178]5[167]T2(R)[178]T2(R)[170]S2:[139]V$[178]"MID$"[167]F5(R)[178]F5(R)[170](11[171]C) 1312 [139]WS[178]2[167]A5(R)[178]A5(R)[170](11[171]C) 1313 [139]C[178]10[167]1350 1314 X2[178]0:[137]1180 1315 C[178]C[170]1:S(C)[178]S3:S$(C)[178]S3$:L$(C)[178]L3$:W1(C)[178]W3:P7(K)[178]S3:P3(K)[178]0:M$(C)[178]MC$ 1316 [139]W[178]4[176]W[178]5[167]T3(K)[178]T3(K)[170]S3:[139]V$[178]"MID$"[167]F6(K)[178]F6(K)[170](11[171]C) 1317 [139]WS[178]2[167]A6(K)[178]A6(K)[170](11[171]C) 1318 [139]C[178]10[167]1350 1319 X3[178]0:[137]1180 1350 [139]RC$[178]"C"[167]5005 1351 [141]9998:[153]WS".STR$URCHGANG USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 1352 [153]"(null)PRINGER/(null)ATION (null)EITE/(null)UNKTE":C[178]0 1353 [141]9920 1354 [129]Z[178]1[164]10 1355 [153]Z:[153]"ON."[200](S$(Z),1)"."L$(Z)" ("[200](M$(Z),3)") 1356 PRINT"[145]"INT(W1(Z)):IFZ=1ANDWS=2THENGOSUB15000 1357 PRINT"[145]M /"S(Z) 1358 NEXTZ 1359 S(10)=0:GOSUB9996 1360 IFWS=2THEN1370 1361 WS=WS+1:GOTO1260 1370 REM NACHWETTNULL 1371 WE$="":DN$="":WS=0 1372 FORZ=1TO10 1373 DN$(Z)="" 1374 NEXTZ 1382 FORZ=1TO10 1383 D2$(Z)="" 1384 NEXTZ 1392 FORZ=1TO9 1393 D3$(Z)="" 1394 NEXTZ 1395 TA=TA+1:IFRE$="[202]"THENRETURN 1396 IFTA=2THEN1400 1397 X1=0:X2=0:X3=0:S1=9999:S2=9999:S3=9999:GOSUB9998 1398 IFRC$="C"THENGOTO154 1399 PRINT"[209]UALIFIKATION 2.[212]AG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":GOTO1103 1400 V$="":REM DIFFERENZIERUNG 1401 IFW=5THEN1410 1402 IFW=16THEN1510 1403 IFRA$="[202]"THEN200 1404 IFRA$="[215]M"THENGOTO3010 1405 IFRC$="C"THEN150 1406 IFRA$="WM"THEN1408 1407 IFRD$="[202]"THEN200 1408 T=8:GOTO150 1409 T=7:GOTO150 1410 IFTB=1THEN1407:REM TOURNEEWERTUNG 1411 GOSUB9998:PRINT"[212]OURNEE - [199]ESAMTWERTUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 1412 GOSUB2200 1413 X1=0:X2=0:X3=0:RA$="[202]":RB$="[202]":GOTO1180 1510 IFTB=1THEN1407:REM FLUGWERTUNG 1511 GOSUB9998:PRINT"[198]LIEGEN - [199]ESAMTWERTUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 1512 GOSUB2300 1513 X1=0:X2=0:X3=0:RA$="[202]":RB$="[202]":GOTO1180 2000 REM RANGLISTE 2001 GOSUB9998:PRINT"[210]ANGLISTE [183][183][183][183][183][183][183][183][183]":GOSUB2100 2002 X1=0:X2=0:X3=0:RA$="[202]":RD$="[202]":GOTO1180 2070 PRINT"[211]PRINGER/[206]ATION [208]UNKTE":IFXA=1THENRETURN 2071 PRINT"[145][145]":GOSUB9920:C=0:RB$="" 2072 FORZ=1TO10 2073 PRINTZ:PRINT"[145]. "LEFT$(S$(Z),1)"."L$(Z)" ("LEFT$(M$(Z),3)") 2075 [153]"ON"S(Z):[139]Z[178]1[167][141]6000 2076 [130]Z 2077 [141]9996 2079 WS[178]2:TA[178]1:TB[178]1:[137]1370 2100 [143] UMLEITUNG 2102 [129]Z[178]1[164]10 2103 DN$(Z)[178]"OK":P1[178]A4(Z):[141]1113 2104 [130]Z 2112 [129]V[178]1[164]10 2113 D2$(V)[178]"OK":P1[178]A5(V):[141]1133 2114 [130]V 2122 [129]X[178]1[164]10 2123 D3$(X)[178]"OK":P1[178]A6(X):[141]1153 2124 [130]X 2125 DN$[178]"OK":P1[178]AP:[141]1173 2126 [142] 2200 [143] UMLEITUNG 2202 [129]Z[178]1[164]10 2203 DN$(Z)[178]"OK":P1[178]T1(Z):T1(Z)[178]0:[141]1113 2204 [130]Z 2212 [129]V[178]1[164]10 2213 D2$(V)[178]"OK":P1[178]T2(V):T2(V)[178]0:[141]1133 2214 [130]V 2222 [129]X[178]1[164]10 2223 D3$(X)[178]"OK":P1[178]T3(X):T3(X)[178]0:[141]1153 2224 [130]X 2225 DN$[178]"OK":P1[178]TP:TP[178]0:[141]1173 2226 [142] 2300 [143] UMLEITUNG 2302 [129]Z[178]1[164]10 2303 DN$(Z)[178]"OK":P1[178]F4(Z):F4(Z)[178]0:[141]1113 2304 [130]Z 2312 [129]V[178]1[164]10 2313 D2$(V)[178]"OK":P1[178]F5(V):F5(V)[178]0:[141]1133 2314 [130]V 2322 [129]X[178]1[164]10 2323 D3$(X)[178]"OK":P1[178]F6(X):F6(X)[178]0:[141]1153 2324 [130]X 2325 DN$[178]"OK":P1[178]FP:FP[178]0:[141]1173 2326 [142] 3000 [139]W[178]13[167]3010:[143] WM 3001 [141]9998:[153]"(null)(null)-(null)LEINSCHANZE"Y[170]AL": USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 3002 X1[178]0:X2[178]0:X3[178]0:S1[178]9999:S2[178]9999:S3[178]9999:RA$[178]"WM":TA[178]1:UI[178]2:[137]1103 3010 [141]9998:[153]"(null)(null)-CHR$ROSSSCHANZE"Y[170]AL": USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 3011 X1[178]0:X2[178]0:X3[178]0:S1[178]9999:S2[178]9999:S3[178]9999:RA$[178]"W(null)":TA[178]1:[137]1103 5000 [143] PSEUDO-WETTKAMPF 5001 WE$[178]"OK":C[178]0:WS[178]WS[170]1:[137]1260 5005 C[178]0:S(10)[178]0:[139]WS[178]2[175]T[178]7[167]TA[178]1:[139]WS[178]2[175]T[178]7[167]UI[178]2:[141]9998:[141]9996 5006 [139]WS[178]2[167]1370 5007 WS[178]WS[170]1:[137]1260 6000 [139]W[178]5[167]6003 6001 [139]W[178]16[167]6004 6002 [142] 6003 OT$(AL[171]19)[178]S$(Z):T8$(AL[171]19)[178]L$(Z):T9$(AL[171]19)[178]M$(Z):[142] 6004 FW$(AL[171]19)[178]S$(Z):F8$(AL[171]19)[178]L$(Z):F9$(AL[171]19)[178]M$(Z):[142] 7000 P4[178][171]999:[137]1180 7005 [139]UI[178]2[167]157 7006 [141]9998:[137]1000 8032 Z[178]1:[141]1104:[142] 8033 Z[178]2:[141]1104:[142] 8034 Z[178]3:[141]1104:[142] 8035 Z[178]4:[141]1104:[142] 8036 Z[178]5:[141]1104:[142] 8037 Z[178]6:[141]1104:[142] 8052 Z[178]7:[141]1104:[142] 8053 Z[178]8:[141]1104:[142] 8054 Z[178]9:[141]1104:[142] 8055 Z[178]10:[141]1104:[142] 8056 V[178]1:[141]1124:[142] 8057 V[178]2:[141]1124:[142] 8072 V[178]3:[141]1124:[142] 8073 V[178]4:[141]1124:[142] 8074 V[178]5:[141]1124:[142] 8075 V[178]6:[141]1124:[142] 8076 X[178]7:[141]1144:[142] 8092 V[178]7:[141]1124:[142] 8093 V[178]8:[141]1124:[142] 8094 V[178]9:[141]1124:[142] 8095 V[178]10:[141]1124:[142] 8096 X[178]1:[141]1144:[142] 8097 X[178]8:[141]1144:[142] 8098 X[178]9:[141]1144:[142] 8112 X[178]2:[141]1144:[142] 8113 X[178]3:[141]1144:[142] 8114 X[178]4:[141]1144:[142] 8115 X[178]5:[141]1144:[142] 8116 X[178]6:[141]1144:[142] 9700 [143] NULLMACHEN 9701 [129]Z[178]1[164]10 9702 WE(Z)[178]0:H(Z)[178]0:P(Z)[178]0:P4(Z)[178]0 9703 [130]Z 9711 [129]Z[178]1[164]10 9712 W2(Z)[178]0:H2(Z)[178]0:P2(Z)[178]0:P6(Z)[178]0 9713 [130]Z 9721 [129]Z[178]1[164]9 9722 W3(Z)[178]0:H3(Z)[178]0:P3(Z)[178]0:P7(Z)[178]0 9723 [130]Z 9725 W4[178]0:H4[178]0:P4[178]0:P8[178]0:[139]N[177]100[167]N[178]100 9726 [139]N[179]0[167]N[178]0 9728 [142] 9800 [141]9998 9801 [153]"PEEKITTE WARTEN ..." 9802 [142] 9900 [143] ZUFALLSGENERATOR 9910 [153]"(null)TATISTIK: USRUSRUSRUSRUSRUSRUSRUSRUSR":[142] 9920 [153]"ONUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR":[142] 9990 Z1[178]UG[170][187](0)[172](OG[171]UG):Z2[178][181](Z1) 9991 [142] 9996 [161]A$:[139]A$[178]""[167]9996 9997 [142] 9998 [153]"LOADPRINT# ASCLYIN' LEFT$IGH " 9999 [142] 10000 [143] DATEN ZU BEGINN 10001 X[178]1 10002 E$(X)[178]"(null)RAINING" 10003 X[178]X[170]1 10004 [139]X[178]11[167]10010 10006 [137]10002 10010 X[178]1 10011 F$(X)[178]"(null)RAINING" 10012 X[178]X[170]1 10013 [139]X[178]2[176]X[178]3[167]10020 10014 [139]X[178]7[167][142] 10015 [137]10011 10020 F$(X)[178]"(null)(null)" 10021 X[178]X[170]1 10022 [137]10013 10712 RC$[178]"C":[141]9800:[137]1100 11000 [143] SPRINGERANFANG 11001 [129]Z[178]1[164]29:[139]Z[177]10[167]11004 11002 A(Z)[178]A:B(Z)[178]B:F(Z)[178]F:L(Z)[178]L:N(Z)[178]N 11003 [130]Z 11004 V[178]Z[171]10:[139]Z[177]20[167]11007 11005 A2(V)[178]A:B2(V)[178]B:F2(V)[178]F:L2(V)[178]L:N2(V)[178]N 11006 [130]Z 11007 X[178]Z[171]20 11008 A3(X)[178]A:B3(X)[178]B:F3(X)[178]F:L3(X)[178]L:N3(X)[178]N 11009 [130]Z 11010 [143] SPRINGERNAMEN 11011 V1$(1)[178]"(null)AZUYOSHI":N1$(1)[178]"ASCUNAKI":M1$(1)[178]"MID$APAN" 11012 V1$(2)[178]"(null)AKANOBU":N1$(2)[178]"(null)KABE":M1$(2)[178]"MID$APAN" 11013 V1$(3)[178]"LEFT$IROYAH":N1$(3)[178]"(null)AITOH":M1$(3)[178]"MID$APAN" 11014 V1$(4)[178]"(null)ORIAKI":N1$(4)[178]"(null)ASAI":M1$(4)[178]"MID$APAN" 11015 V1$(5)[178]"(null)ASAHIRO":N1$(5)[178]"LEFT$ARADA":M1$(5)[178]"MID$APAN" 11016 V1$(6)[178]"(null)ENJI":N1$(6)[178]"(null)UDA":M1$(6)[178]"MID$APAN" 11017 V1$(7)[178]"STR$IETER":N1$(7)[178]"(null)HOMA":M1$(7)[178]"CHR$ERMANY" 11018 V1$(8)[178]"MID$ENS":N1$(8)[178]"(null)EISSFLOG":M1$(8)[178]"CHR$ERMANY" 11019 V1$(9)[178]"LENHRISTOPH":N1$(9)[178]"STR$UFFNER":M1$(9)[178]"CHR$ERMANY" 11020 V1$(10)[178]"(null)ARTIN":N1$(10)[178]"(null)CHMITT":M1$(10)[178]"CHR$ERMANY" 11021 V2$(1)[178]"LEFT$ANS-MID$OERG":N2$(1)[178]"MID$AEKLE":M2$(1)[178]"CHR$ERMANY" 11022 V2$(2)[178]"LEFT$ORST":N2$(2)[178]"LEFT$ASCHMICH":M2$(2)[178]"CHR$ERMANY" 11023 V2$(3)[178]"ATNRI-(null)EKKA":N2$(3)[178]"(null)IKKOLA":M2$(3)[178]"ASCINLAND" 11024 V2$(4)[178]"(null)ONI":N2$(4)[178]"(null)IEMINEN":M2$(4)[178]"ASCINLAND" 11025 V2$(5)[178]"(null)ATTI":N2$(5)[178]"(null)YKAENEN":M2$(5)[178]"ASCINLAND" 11026 V2$(6)[178]"MID$ANI":N2$(6)[178]"(null)OININEN":M2$(6)[178]"ASCINLAND" 11027 V2$(7)[178]"(null)YLVAIN":N2$(7)[178]"ASCREIHOLZ":M2$(7)[178]"(null)UISSE" 11028 V2$(8)[178]"MID$IM":N2$(8)[178]"LEFT$OLLAND":M2$(8)[178]"(null)(null)ATN" 11029 V2$(9)[178]"MID$AN":N2$(9)[178]"PEEKOKLOEV":M2$(9)[178]"(null)WEDEN" 11030 V2$(10)[178]"(null)RIMOSZ":N2$(10)[178]"(null)ETERKA":M2$(10)[178]"(null)LOWENIA" 11031 VN$(1)[178]"ATNDAM":NN$(1)[178]"(null)ALYSZ":MM$(1)[178]"(null)OLAND" 11032 VN$(2)[178]"(null)ARTIN":NN$(2)[178]"LEFT$OELLWARTH":MM$(2)[178]"ATNUSTRIA" 11033 VN$(3)[178]"(null)EINHARD":NN$(3)[178]"(null)CHWARZENBERGER":MM$(3)[178]"ATNUSTRIA" 11034 VN$(4)[178]"ATNNDREAS":NN$(4)[178]"CHR$OLDBERGER":MM$(4)[178]"ATNUSTRIA" 11035 VN$(5)[178]"VALRNST":NN$(5)[178]"(null)ETTORI":MM$(5)[178]"ATNUSTRIA" 11036 VN$(6)[178]"ATNNDREAS":NN$(6)[178]"ASCELDER":MM$(6)[178]"ATNUSTRIA" 11037 VN$(7)[178]"MID$ANNE":NN$(7)[178]"ATNHONEN":MM$(7)[178]"ASCINLAND" 11038 VN$(8)[178]"VALSPEN":NN$(8)[178]"PEEKREDESEN":MM$(8)[178]"(null)ORWAY" 11039 VN$(9)[178]"(null)ICOLAS":NN$(9)[178]"STR$ESUM":MM$(9)[178]"ASCRANCE" 11040 [142] 12000 [143] JAHR 12001 AL[178]AL[170]1:W[178]1:XA[178]1:[141]13000:XA[178]0:[139]GE[178]AL[167]21000 12002 AP[178]0:A[178]A[173]2:B[178]B[173]2:F[178]F[173]2:L[178]L[173]2:A[178][181](A):B[178][181](B):F[178][181](F):L[178][181](L) 12003 N[178][181](N) 12004 [129]Z[178]1[164]10 12005 A4(Z)[178]0:T1(Z)[178]0:F4(Z)[178]0 12006 A(Z)[178]A(Z)[173]2:A(Z)[178][181](A(Z)) 12007 B(Z)[178]B(Z)[173]2:B(Z)[178][181](B(Z)) 12008 F(Z)[178]F(Z)[173]2:F(Z)[178][181](F(Z)) 12009 L(Z)[178]L(Z)[173]2:L(Z)[178][181](L(Z)) 12010 N(Z)[178]N(Z)[173]2:N(Z)[178][181](N(Z)) 12011 [130]Z 12013 [129]Z[178]1[164]10 12014 A5(Z)[178]0 12015 A2(Z)[178]A2(Z)[173]2:A2(Z)[178][181](A2(Z)) 12016 B2(Z)[178]B2(Z)[173]2:B2(Z)[178][181](B2(Z)) 12017 F2(Z)[178]F2(Z)[173]2:F2(Z)[178][181](F2(Z)) 12018 L2(Z)[178]L2(Z)[173]2:L2(Z)[178][181](L2(Z)) 12019 N2(Z)[178]N2(Z)[173]2:N2(Z)[178][181](N2(Z)) 12020 [130]Z 12023 [129]Z[178]1[164]10 12024 A6(Z)[178]0 12025 A3(Z)[178]A3(Z)[173]2:A3(Z)[178][181](A3(Z)) 12026 B3(Z)[178]B3(Z)[173]2:B3(Z)[178][181](B3(Z)) 12027 F3(Z)[178]F3(Z)[173]2:F3(Z)[178][181](F3(Z)) 12028 L3(Z)[178]L3(Z)[173]2:L3(Z)[178][181](L3(Z)) 12029 N3(Z)[178]N3(Z)[173]2:N3(Z)[178][181](N3(Z)) 12030 [130]Z 13000 [141]9998:[153]"MID$AHRES-(null)ANGLISTE USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 13001 [141]2100:X1[178]0:X2[178]0:X3[178]0:RA$[178]"MID$":[141]1180 13003 [141]9920:C[178]0:RB$[178]"" 13004 [129]Z[178]1[164]10 13005 [153]Z:[153]"ON. "[200](S$(Z),1)"."L$(Z)" ("[200](M$(Z),3)") 13006 PRINT"[145]"S(Z) 13007 NEXTZ 13008 GOSUB9996:RE$="[202]":GOSUB1370 13009 RETURN 15000 REM Z=1 15001 IFRA$="WM"THEN15010 15003 IFRA$="W[205]"THEN15030 15004 RETURN 15010 WM$(AL-19)=S$(1):W8$(AL-19)=L$(1):W9$(AL-19)=M$(1) 15011 RETURN 15030 MW$(AL-19)=S$(1):M8$(AL-19)=L$(1):M9$(AL-19)=M$(1) 15031 RETURN 20000 GOSUB9800:REM COMPUTERSPRINGER 20001 FORZ=1TO29:IFZ>10THEN20101 20002 UG=1:OG=5:GOSUB9990 20003 A1=Z2 20004 UG=1:OG=7:GOSUB9990 20005 IFZ2=1THEN20014 20006 IFZ2=2THEN20014 20007 IFZ2=3THEN20012 20008 IFZ2=4THEN20012 20009 IFZ2=5THEN20012 20010 IFZ2=6THEN20012 20011 IFZ2=7THEN20014 20012 A(Z)=A(Z)+A1:IFA(Z)>100THENA(Z)=100 20013 GOTO20022 20014 A(Z)=A(Z)-A1 20015 IFA(Z)<0THENA(Z)=0 20022 UG=1:OG=5:GOSUB9990 20023 B1=Z2 20024 UG=1:OG=7:GOSUB9990 20025 IFZ2=1THEN20034 20026 IFZ2=2THEN20034 20027 IFZ2=3THEN20032 20028 IFZ2=4THEN20032 20029 IFZ2=5THEN20032 20030 IFZ2=6THEN20032 20031 IFZ2=7THEN20034 20032 B(Z)=B(Z)+B1:IFB(Z)>100THENB(Z)=100 20033 GOTO20042 20034 B(Z)=B(Z)-B1 20035 IFB(Z)<0THENB(Z)=0 20042 UG=1:OG=5:GOSUB9990 20043 F1=Z2 20044 UG=1:OG=7:GOSUB9990 20045 IFZ2=1THEN20054 20046 IFZ2=2THEN20054 20047 IFZ2=3THEN20052 20048 IFZ2=4THEN20052 20049 IFZ2=5THEN20052 20050 IFZ2=6THEN20052 20051 IFZ2=7THEN20054 20052 F(Z)=F(Z)+F1:IFF(Z)>100THENF(Z)=100 20053 GOTO20062 20054 F(Z)=F(Z)-F1 20055 IFF(Z)<0THENF(Z)=0 20062 UG=1:OG=5:GOSUB9990 20063 L1=Z2 20064 UG=1:OG=7:GOSUB9990 20065 IFZ2=1THEN20074 20066 IFZ2=2THEN20074 20067 IFZ2=3THEN20072 20068 IFZ2=4THEN20072 20069 IFZ2=5THEN20072 20070 IFZ2=6THEN20072 20071 IFZ2=7THEN20074 20072 L(Z)=L(Z)+L1:IFL(Z)>100THENL(Z)=100 20073 GOTO20082 20074 L(Z)=L(Z)-L1 20075 IFL(Z)<0THENL(Z)=0 20082 UG=1:OG=5:GOSUB9990 20083 N1=Z2 20084 UG=1:OG=7:GOSUB9990 20085 IFZ2=1THEN20094 20086 IFZ2=2THEN20094 20087 IFZ2=3THEN20092 20088 IFZ2=4THEN20092 20089 IFZ2=5THEN20092 20090 IFZ2=6THEN20094 20091 IFZ2=7THEN20094 20092 N(Z)=N(Z)+N1:IFN(Z)>100THENN(Z)=100 20093 GOTO20096 20094 N(Z)=N(Z)-N1 20095 IFN(Z)<0THENN(Z)=0 20096 NEXTZ 20101 V=Z-10:IFZ>20THEN20201 20102 UG=1:OG=5:GOSUB9990 20103 A1=Z2 20104 UG=1:OG=7:GOSUB9990 20105 IFZ2=1THEN20114 20106 IFZ2=2THEN20114 20107 IFZ2=3THEN20112 20108 IFZ2=4THEN20112 20109 IFZ2=5THEN20112 20110 IFZ2=6THEN20112 20111 IFZ2=7THEN20114 20112 A2(V)=A2(V)+A1:IFA2(V)>100THENA2(V)=100 20113 GOTO20122 20114 A2(V)=A2(V)-A1 20115 IFA2(V)<0THENA2(V)=0 20122 UG=1:OG=5:GOSUB9990 20123 B1=Z2 20124 UG=1:OG=7:GOSUB9990 20125 IFZ2=1THEN20134 20126 IFZ2=2THEN20134 20127 IFZ2=3THEN20132 20128 IFZ2=4THEN20132 20129 IFZ2=5THEN20132 20130 IFZ2=6THEN20132 20131 IFZ2=7THEN20134 20132 B2(V)=B2(V)+B1:IFB2(V)>100THENB2(V)=100 20133 GOTO20142 20134 B2(V)=B2(V)-B1 20135 IFB2(V)<0THENB2(V)=0 20142 UG=1:OG=5:GOSUB9990 20143 F1=Z2 20144 UG=1:OG=7:GOSUB9990 20145 IFZ2=1THEN20154 20146 IFZ2=2THEN20154 20147 IFZ2=3THEN20152 20148 IFZ2=4THEN20152 20149 IFZ2=5THEN20152 20150 IFZ2=6THEN20152 20151 IFZ2=7THEN20154 20152 F2(V)=F2(V)+F1:IFF2(V)>100THENF2(V)=100 20153 GOTO20162 20154 F2(V)=F2(V)-F1 20155 IFF2(V)<0THENF2(V)=0 20162 UG=1:OG=5:GOSUB9990 20163 L1=Z2 20164 UG=1:OG=7:GOSUB9990 20165 IFZ2=1THEN20174 20166 IFZ2=2THEN20174 20167 IFZ2=3THEN20172 20168 IFZ2=4THEN20172 20169 IFZ2=5THEN20172 20170 IFZ2=6THEN20172 20171 IFZ2=7THEN20174 20172 L2(V)=L2(V)+L1:IFL2(V)>100THENL2(V)=100 20173 GOTO20182 20174 L2(V)=L2(V)-L1 20175 IFL2(V)<0THENL2(V)=0 20182 UG=1:OG=5:GOSUB9990 20183 N1=Z2 20184 UG=1:OG=7:GOSUB9990 20185 IFZ2=1THEN20194 20186 IFZ2=2THEN20194 20187 IFZ2=3THEN20192 20188 IFZ2=4THEN20192 20189 IFZ2=5THEN20192 20190 IFZ2=6THEN20194 20191 IFZ2=7THEN20194 20192 N2(V)=N2(V)+N1:IFN2(V)>100THENN2(V)=100 20193 GOTO20196 20194 N2(V)=N2(V)-N1 20195 IFN2(V)<0THENN2(V)=0 20196 NEXTZ 20201 X=Z-20 20202 UG=1:OG=5:GOSUB9990 20203 A1=Z2 20204 UG=1:OG=7:GOSUB9990 20205 IFZ2=1THEN20214 20206 IFZ2=2THEN20214 20207 IFZ2=3THEN20212 20208 IFZ2=4THEN20212 20209 IFZ2=5THEN20212 20210 IFZ2=6THEN20212 20211 IFZ2=7THEN20214 20212 A3(X)=A3(X)+A1:IFA3(X)>100THENA3(X)=100 20213 GOTO20222 20214 A3(X)=A3(X)-A1 20215 IFA3(X)<0THENA3(X)=0 20222 UG=1:OG=5:GOSUB9990 20223 B1=Z2 20224 UG=1:OG=7:GOSUB9990 20225 IFZ2=1THEN20234 20226 IFZ2=2THEN20234 20227 IFZ2=3THEN20232 20228 IFZ2=4THEN20232 20229 IFZ2=5THEN20232 20230 IFZ2=6THEN20232 20231 IFZ2=7THEN20234 20232 B3(X)=B3(X)+B1:IFB3(X)>100THENB3(X)=100 20233 GOTO20242 20234 B3(X)=B3(X)-B1 20235 IFB3(X)<0THENB3(X)=0 20242 UG=1:OG=5:GOSUB9990 20243 F1=Z2 20244 UG=1:OG=7:GOSUB9990 20245 IFZ2=1THEN20254 20246 IFZ2=2THEN20254 20247 IFZ2=3THEN20252 20248 IFZ2=4THEN20252 20249 IFZ2=5THEN20252 20250 IFZ2=6THEN20252 20251 IFZ2=7THEN20254 20252 F3(X)=F3(X)+F1:IFF3(X)>100THENF3(X)=100 20253 GOTO20262 20254 F3(X)=F3(X)-F1 20255 IFF3(X)<0THENF3(X)=0 20262 UG=1:OG=5:GOSUB9990 20263 L1=Z2 20264 UG=1:OG=7:GOSUB9990 20265 IFZ2=1THEN20274 20266 IFZ2=2THEN20274 20267 IFZ2=3THEN20272 20268 IFZ2=4THEN20272 20269 IFZ2=5THEN20272 20270 IFZ2=6THEN20272 20271 IFZ2=7THEN20274 20272 L3(X)=L3(X)+L1:IFL3(X)>100THENL3(X)=100 20273 GOTO20282 20274 L3(X)=L3(X)-L1 20275 IFL3(X)<0THENL3(X)=0 20282 UG=1:OG=5:GOSUB9990 20283 N1=Z2 20284 UG=1:OG=7:GOSUB9990 20285 IFZ2=1THEN20294 20286 IFZ2=2THEN20294 20287 IFZ2=3THEN20292 20288 IFZ2=4THEN20292 20289 IFZ2=5THEN20292 20290 IFZ2=6THEN20294 20291 IFZ2=7THEN20294 20292 N3(X)=N3(X)+N1:IFN3(X)>100THENN3(X)=100 20293 GOTO20296 20294 N3(X)=N3(X)-N1 20295 IFN3(X)<0THENN3(X)=0 20296 NEXTZ 20297 RETURN 21000 REM ENDE 21001 GOSUB9998:PRINT"[196]AS [203]ARRIEREENDE IST ERREICHT ..." 21002 GOSUB9996 21003 END